DEFINE INPUT        PARAMETER a-lang       AS   INTEGER     NO-UNDO.
DEFINE INPUT-OUTPUT PARAMETER lib-rec      AS   CHARACTER   NO-UNDO.


DEF            VAR lib-rec2      AS   CHARACTER   NO-UNDO.
DEF            VAR lib-rec3      AS   CHARACTER   NO-UNDO.
DEF            VAR i             AS   INTEGER     NO-UNDO.

DO i = 1 TO NUM-ENTRIES(lib-rec," "):
   lib-rec2 = ENTRY(i,lib-rec," ").
   IF lib-rec2 = "*" OR TRIM(lib-rec2) = "" THEN NEXT.
   IF SUBSTRING(lib-rec2,1,1) = "*" THEN lib-rec2 = SUBSTRING(lib-rec2,2).
   IF SUBSTRING(lib-rec2,LENGTH(lib-rec2)) <> "*" THEN lib-rec2 = lib-rec2 + "*".
/*    lib-rec2 = STRING(a-lang) + lib-rec2.  */
   IF lib-rec3 = "" THEN lib-rec3 = lib-rec2.
   ELSE lib-rec3 = lib-rec3 + " & " + lib-rec2.
END.
lib-rec = lib-rec3.
